home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 19.zip / BS1 part 19 / A-talk III release disk 1.adf / Scripts / pcpursuit.scr < prev    next >
Text File  |  1988-09-30  |  3KB  |  160 lines
  1. # pur001;860825
  2. #
  3. #            Generic PC Pursuit dialer script for A-Talk III
  4. #
  5. #                 with Racal-Vadic call progression
  6. #
  7. #                         by Jack Radigan
  8. #
  9. # Clear screen and start prompt sequence.
  10. #
  11. CLEAR
  12. ECHO "PC Pursuit dialer."
  13. ECHO ""
  14. #
  15. # User flow control.
  16. #
  17. #   This allows you to start another script while still connected to a
  18. #  remote modem. It will either dial another number in the same city
  19. #  or re-connect to a different city. In addition, it will terminate
  20. #  the connection and then hang-up your modem if so desired.
  21. #
  22. ask "Dial Telenet? (y/n)"
  23. IF y GOTO dialmain
  24. ECHO ""
  25. ASK "Disconnect from Telenet? (y/n)"
  26. IF y GOTO hangup
  27. ECHO ""
  28. ASK "Are you connected to a target city? (y/n)"
  29. IF n GOTO dial2
  30. ECHO ""
  31. ASK "Do you need to change cities? (y/n)"
  32. IF n GOTO dial3
  33. #
  34. # Before changing cities, make sure Racal-Vadic mode is disabled.
  35. #
  36. reply "I^M"
  37. delay 10
  38. reply "^M"
  39. delay 5
  40. reply "@"
  41. delay 5
  42. reply "^M"
  43. wait "@"
  44. reply "D^M"
  45. DELAY 1
  46. GOTO dial2
  47. #
  48. # Disable Racal-Vadic mode prior to hanging up local modem.
  49. #
  50. hangup:
  51. reply "I^M"
  52. delay 15
  53. #
  54. # Hayes commands are used for hang-up, change if necessary.
  55. #
  56. reply "+++"
  57. WAIT "OK"
  58. reply "ATH^M"
  59. STOP
  60. #
  61. # Start local modem dial loop.
  62. #
  63. dialmain:
  64. #
  65. #   Hayes commands also used here, you must alter this section if your 
  66. #  modem uses a different command set.
  67. #
  68. reply "ATZ^M"  
  69. WAIT "OK"  
  70. #
  71. # Local modem dial loop re-entry.
  72. #
  73. dial:
  74. delay 5   
  75. #
  76. # Local Telenet access number follows.
  77. #
  78. reply "ATDT0000000^M"
  79. DELAY 1
  80. ON "NECT" GOTO dial1
  81. delay 200
  82. reply "ATH^M"
  83. DELAY 1
  84. GOTO dial
  85. #
  86. # End local modem dial loop, begin Telenet log on sequence.
  87. #
  88. dial1:
  89. delay 5
  90. reply "^M"
  91. delay 5
  92. reply "^M"
  93. WAIT "NAL="
  94. reply "D1^M"
  95. wait "@"
  96. #
  97. # Start area code connect loop.
  98. #
  99. dial2:
  100. #
  101. # Insert area code after the word 'DIAL', then put user ID after comma.
  102. #
  103. reply "C D/CALAN/12,TELENETID^M"
  104. WAIT "D = "
  105. #
  106. # Install your password here.
  107. #
  108. reply "MYPASSWORD^M"
  109. ON "CTED" GOTO dial3
  110. wait "@"
  111. GOTO dial2
  112. #
  113. # Remote modem entry.
  114. #
  115. #   The following code prevents the remote modem from going into
  116. #  manual answer mode if entered from the last prompt and the remote
  117. #  modem is also in Racal-Vadic mode. It must also issue an ATZ
  118. #  command to insure that the remote is reset when entered from the
  119. #  initial remote connect sequence immediately above.
  120. #
  121. dial3:
  122. reply "I^M"
  123. delay 10
  124. reply "ATZ^M"
  125. delay 10
  126. #
  127. # Activate Racal-Vadic command mode.
  128. #
  129. reply "^E^M"
  130. wait "*"
  131. #
  132. # Remote modem dial loop.
  133. #
  134. dial4:
  135. ECHO "Access1, Los Angeles, 213"
  136. ECHO "  "
  137. #
  138. # Put phone number of destination after the letter 'D'.
  139. #
  140. reply "D7433752^M"
  141. ON "NECT" GOTO logon
  142. ON "TURN" GOTO logon
  143. WAIT "USY!"
  144. GOTO dial4
  145. #
  146. # Final logon.
  147. #
  148. #   If the destination starts transmitting first, the following two
  149. #  replys probably will not be needed. You have to see how it reacts
  150. #  after connecting and tailor it to log on properly.
  151. #
  152. logon:
  153. BELL
  154. BELL
  155. BELL
  156. BELL
  157. #
  158. # Your actual logon code starts here.
  159. #
  160.